home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / C / LIB / YLIB / ylib_0_10 / s / FPINSTR next >
Text File  |  1993-09-21  |  3KB  |  134 lines
  1. ; this file contains macros to keep the assembler happy.
  2. ; you might not need it on newer versions.
  3. ; MFS and MFL are subtitutes for SFM and LFM, which have the advantage
  4. ; that they don't insist on writeback
  5. ;
  6. ;    Copyright (C) 1993  Claus Vohwinkel
  7. ;
  8. ;    This program is free software; you can redistribute it and/or modify
  9. ;    it under the terms of the GNU General Public License as published by
  10. ;    the Free Software Foundation; either version 2 of the License , or
  11. ;    (at your option) any later version.
  12. ;
  13. ;    This program is distributed in the hope that it will be useful,
  14. ;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. ;    GNU General Public License for more details.
  17. ;
  18. ;    You should have received a copy of the GNU General Public License
  19. ;    along with this program; see the file COPYING.  If not, write to
  20. ;    the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  21. ;
  22. ;    You may contact the author by:
  23. ;       e-mail:  vohwinkel@vxdesy.desy.de
  24. ;      us-mail:  Claus Vohwinkel
  25. ;                SCRI/FSU
  26. ;                400 Science Library
  27. ;                Tallahassee, FL 32306
  28. ;      
  29. ;
  30.  
  31. CP2 CP 2
  32. CP1 CP 1
  33.  
  34. CR00000000 CN 0
  35. CR00000001 CN 1
  36. CR00000002 CN 2
  37. CR00000003 CN 3
  38. CR00000004 CN 4
  39. CR00000005 CN 5
  40. CR00000006 CN 6
  41. CR00000007 CN 7
  42. CR00000008 CN 8
  43. CR00000009 CN 9
  44. CR0000000A CN 10
  45. CR0000000B CN 11
  46. CR0000000C CN 12
  47. CR0000000D CN 13
  48. CR0000000E CN 14
  49. CR0000000F CN 15
  50.  
  51.  GBLA XX
  52.  GBLA YY
  53.  
  54.  MACRO
  55. $LAB MFL $BASE,$C,$ADR,$OFS
  56.  ASSERT ($C = 1) :LOR: ($C = 2) :LOR: ($C = 3) :LOR: ($C = 4) 
  57.  [ $C = 1 
  58. XX SETA $BASE + 8
  59. $LAB LDC CP2,CR$XX,$ADR,$OFS
  60.  ]
  61.  [ $C = 2 
  62. XX SETA $BASE 
  63. $LAB LDCALL CP2,CR$XX,$ADR,$OFS
  64.  ]
  65.  [ $C = 3 
  66. XX SETA $BASE + 8
  67. $LAB LDCALL CP2,CR$XX,$ADR,$OFS
  68.  ]
  69.  [ $C = 4 
  70. XX SETA $BASE
  71. $LAB LDC CP2,CR$XX,$ADR,$OFS
  72.  ]
  73.  MEND
  74.  
  75.  MACRO
  76. $LAB MFS $BASE,$C,$ADR,$OFS
  77.  ASSERT ($C = 1) :LOR: ($C = 2) :LOR: ($C = 3) :LOR: ($C = 4) 
  78.  [ $C = 1 
  79. XX SETA $BASE + 8
  80. $LAB STC CP2,CR$XX,$ADR,$OFS
  81.  ]
  82.  [ $C = 2 
  83. XX SETA $BASE 
  84. $LAB STCALL CP2,CR$XX,$ADR,$OFS
  85.  ]
  86.  [ $C = 3 
  87. XX SETA $BASE + 8
  88. $LAB STCALL CP2,CR$XX,$ADR,$OFS
  89.  ]
  90.  [ $C = 4 
  91. XX SETA $BASE
  92. $LAB STC CP2,CR$XX,$ADR,$OFS
  93.  ]
  94.  MEND
  95.  
  96.  MACRO
  97. $LAB URDE $DEST,$SRC
  98. XX SETA $DEST + 8
  99. YY SETA $SRC
  100. $LAB CDP CP1,&E,CR$XX,CR00000008,CR$YY,0
  101.  MEND
  102.  
  103.  MACRO
  104. $LAB URDEZ $DEST,$SRC
  105. XX SETA $DEST + 8
  106. YY SETA $SRC
  107. $LAB CDP CP1,&E,CR$XX,CR00000008,CR$YY,3
  108.  MEND
  109.  
  110.  MACRO
  111. $LAB URDEP $DEST,$SRC
  112. XX SETA $DEST + 8
  113. YY SETA $SRC
  114. $LAB CDP CP1,&E,CR$XX,CR00000008,CR$YY,1
  115.  MEND
  116.  
  117.  MACRO
  118. $LAB URDEM $DEST,$SRC
  119. XX SETA $DEST + 8
  120. YY SETA $SRC
  121. $LAB CDP CP1,&E,CR$XX,CR00000008,CR$YY,2
  122.  MEND
  123.  
  124.  
  125.  
  126.  MACRO
  127. $LAB NRME $DEST,$SRC
  128. XX SETA $DEST + 8
  129. YY SETA $SRC
  130. $LAB CDP CP1,&F,CR$XX,CR00000008,CR$YY,0
  131.  MEND
  132.  
  133.  END
  134.